home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HyperScreenSaver.cpt / HyperScreenSaver / card_2958.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  112 lines
  1. -- card: 2958 from stack: in
  2. -- bmap block id: 4187
  3. -- flags: 0000
  4. -- background id: 2560
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   wait 2 seconds
  9.   lock screen
  10. end openCard
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 2002
  16. -- rect: left=452 top=138 right=188 bottom=506
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 17885 / 17885
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: New Button
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   visual effect dissolve
  28.   go home
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 2 (button)
  34. -- low flags: 00
  35. -- high flags: A002
  36. -- rect: left=452 top=192 right=239 bottom=506
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 14767 / 14767
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: About...
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   visual effect iris open
  48.   go to card "about"
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 3 (button)
  54. -- low flags: 00
  55. -- high flags: A002
  56. -- rect: left=452 top=243 right=292 bottom=506
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 26411 / 26411
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Try Me!
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   screensave
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 5 (button)
  73. -- low flags: 00
  74. -- high flags: A003
  75. -- rect: left=170 top=320 right=342 bottom=315
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Install into Stack
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   global fname,theScript,tempHolder
  87.   put "Select a stack to copy HyperScreenSaver into."
  88.   put filename("STAK") into fname
  89.   if fname is empty then exit mouseUp
  90.   put "Adding HyperScreenSaver to " & fname & "..." into msg
  91.   put installres(XFCN,InKey) into it
  92.   set lockscreen to true
  93.   set cursor to ball
  94.   go to second card of stack "HyperScreenSaver"
  95.   doMenu "copy card"
  96.   go to last card of stack fname
  97.   doMenu "paste card"
  98.   go to stack "HyperScreenSaver"
  99.   choose browse tool
  100.   go to card "about"
  101.   put card field "script" into tempHolder
  102.   go to fname
  103.   get script of stack
  104.   put it into stackScript
  105.   put stackScript & return & return & return & tempHolder into theScript
  106.   set script of stack fname to theScript
  107.   put "" into msg
  108.   hide msg
  109.   set cursor to hand
  110. end mouseUp
  111.  
  112.